home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / vm etiketten (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  68 lines
  1. 100 poke53281,6:poke53280,6:poke53272,21:poke657,128:poke650,128
  2. 110 print"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  3. 120 [153]"peek                                    peek
  4. 130 print"[194][157][194][145] mit  diesem  programm  koennen sie [194][157][194]
  5. 140 [153]"peekcmdpeekon etiketten fuer ihre videokassetten peekcmdpeek
  6. 150 print"[194][157][194][145] ausdrucken, die sie in zwei formen [194][157][194]
  7. 160 [153]"peekcmdpeekon erstellen koennen.      sys> taste <  peekcmdpeek
  8. 170 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  9. 180 [151]198,0:[146]198,1:[151]198,0
  10. 190 [153]"loadsoll das etikett im laengst oder breit-
  11. 200 print"format erstellt werden ( videohuelle /
  12. 210 [153]"videokassette ) ?
  13. 220 print"[158] 1. laengst
  14. 230 [153]" 2. breit
  15. 240 u=0:print"bitte waehlen !
  16. 250 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]250
  17. 260 [139]a$[178]"2"[167]u[178]1:[137]600
  18. 270 [153]"load(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  19. 280 print"[194]                                     [194]
  20. 290 [153]"peek                                     peek
  21. 300 print"[194]                                     [194]
  22. 310 [153]"peek                                     peek
  23. 320 print"[194]                                     [194]
  24. 330 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
  25. 340 print"[158]bitte geben sie nun ein, was auf dem
  26. 350 [153]"etikett stehen soll.";
  27. 360 [129]i[178]1[164]5:[153]:mx[178]35:[141]370:a$(i)[178]b$:[130]:[137]500
  28. 370 b$[178]""
  29. 380 [139]u[178]0[167][153]".....................................":[153]"on";
  30. 385 [139]u[178]1[167][153]"......................":[153]"on";
  31. 390 [161]a$:[139]a$[178]""[176]a$[178]"on"[176]a$[178]"cmd"[167]390
  32. 400 [139][198](a$)[177]192[175][198](a$)[179]234[167]460
  33. 410 [139]a$[178][199](13)[167]490
  34. 420 [139]([198](a$)[179]32[176][198](a$)[177]127)[175]a$[179][177][199](20)[167]390
  35. 430 [139]a$[178]","[176]a$[178]":"[176]a$[178][199](34)[167]390
  36. 440 [139]a$[178][199](20)[175][195](b$)[178]0[167]390
  37. 450 [139]a$[178][199](20)[167]b$[178][200](b$,[195](b$)[171]1):[153]".cmdcmd-cmd";:[137]480
  38. 460 [139][195](b$)[177]mx[167]390
  39. 470 [153]a$;"-cmd";:b$[178]b$[170]a$
  40. 480 [137]390
  41. 490 [129]r[178][195](b$)[164]mx[170]1[171]v1:[153]" ";:[130]:[142]
  42. 500 [153]:[153]"soll das etikett ausgedruckt werden ?"
  43. 510 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]510
  44. 520 [139]a$[178]"n"[167][138]
  45. 530 [159]1,4
  46. 540 [129]r[178]1[164]5:[152]1,a$(r):[130]
  47. 550 [160]1
  48. 560 [153]"noch einmal ausdrucken ?"
  49. 570 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]570
  50. 575 [139]a$[178]"j"[167]530
  51. 580 [138]
  52. 600 [153]"load(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  53. 610 forr=1to10:print"[194]                       [194]":next
  54. 620 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  55. 630 [153]"sysbitte geben sie nun ein, was
  56. 640 print"etikett stehen soll.";
  57. 645 fori=1to10:print:mx=21:gosub370:a$(i)=b$:next:goto700
  58. 700 print:print"soll das etikett ausgedruckt werden ?"
  59. 710 geta$:ifa$<>"j"anda$<>"n"then710
  60. 720 ifa$="n"thenrun
  61. 730 open1,4
  62. 740 forr=1to10:print#1,a$(r):next
  63. 750 close1
  64. 760 print"noch einmal ausdrucken ?"
  65. 770 geta$:ifa$<>"j"anda$<>"n"then770
  66. 775 ifa$="j"then730
  67. 780 run
  68.